.key ""
.bra {
.ket }

; $VER: UnInstallDCF77 2.1 (28.7.96)
; removes DCF77 und WaitDCF77ifCrash

FailAt 100

Version >NIL:
IF NOT $Workbench GE "39."
	Echo "*nRemoving the DCF77 files...*n"
	Resident >NIL: C:DELETE PURE
	Resident >NIL: C:WAIT PURE
	Resident >NIL: C:ECHO PURE

	/c/Retire DCF77
	Delete c:(DCF77|DCF77.info)
	Delete c:WaitDCF77if#?
	Delete SYS:Utilities/(DCF77|DCF77.info)
	Delete SYS:Tools/Commodities/(DCF77|DCF77.info)
	Delete SYS:WBStartup/(DCF77|DCF77.info)
	Delete SYS:WBStartup/(GClock|GClock.info)

	Echo "*nDCF77 removed.*n"
	Wait 5

Else

	RequestChoice >ENV:DCFSetup{$$} "UnInstallDCF77" "About to remove DCF77.*n" "Continue" "Cancel"
	IF $DCFSetup{$$} EQ "1"

		Resident >NIL: C:DELETE PURE

		/c/Retire DCF77
		Delete c:(DCF77|DCF77.info)
		Delete c:WaitDCF77if#?
		Delete SYS:Utilities/(DCF77|DCF77.info)
		Delete SYS:Tools/Commodities/(DCF77|DCF77.info)
		Delete SYS:WBStartup/(DCF77|DCF77.info)
		Delete SYS:WBStartup/(GClock|GClock.info)
		Delete SYS:WBStartup/(TimeSignal|TimeSignal.info)

		Delete ENV:DCFSetup{$$} QUIET

		RequestChoice >NIL: "UnInstallDCF77" "DCF77 removed." "OK"
	Else
		Echo "*n Cancel. No files deleted."
	EndIF
EndIF

